inherited dm_embalagem: Tdm_embalagem
  Left = 693
  Top = 276
  inherited sqlConsulta: TSQLQuery
    SQL.Strings = (
      'select'
      '    e.COD_EMBALAGEM,'
      '    e.LIG_COD_PRODUTO,'
      '    e.LIG_COD_FORMA,'
      '    e.LIG_COD_CLASS_TERAPEUTICA,'
      '    e.LIG_COD_ROTULO_MASCARA,'
      '    e.VOLUME_MINIMO,'
      '    e.VOLUME_MAXIMO,'
      '    e.SITUACAO,'
      '    e.DATA_CAD,'
      '    e.DATA_ALTERACAO,'
      '    case'
      '      when e.situacao = '#39'True'#39' then '#39'ATIVO'#39' else '#39'INATIVO'#39
      '    end as SITUACAO_DESC,'
      '    a.descricao ||'#39'/'#39'|| a.apresentacao as produto,'
      '    b.descricao as forma,'
      '    c.descricao as classterapeutica'
      'from f_embalagem e'
      'left join produto a on (a.cod_produto = e.lig_cod_produto)'
      
        'left join f_forma_farmaceutica b on (b.cod_forma = e.lig_cod_for' +
        'ma)'
      
        'left join f_classificacao_terapeutica c on (c.cod_classificacao ' +
        '= e.lig_cod_class_terapeutica)')
  end
  inherited cdsConsulta: TClientDataSet
    object cdsConsultaCOD_EMBALAGEM: TIntegerField
      Alignment = taCenter
      FieldName = 'COD_EMBALAGEM'
      Required = True
    end
    object cdsConsultaLIG_COD_PRODUTO: TIntegerField
      FieldName = 'LIG_COD_PRODUTO'
      Required = True
    end
    object cdsConsultaLIG_COD_FORMA: TIntegerField
      FieldName = 'LIG_COD_FORMA'
      Required = True
    end
    object cdsConsultaLIG_COD_CLASS_TERAPEUTICA: TIntegerField
      FieldName = 'LIG_COD_CLASS_TERAPEUTICA'
      Required = True
    end
    object cdsConsultaLIG_COD_ROTULO_MASCARA: TIntegerField
      FieldName = 'LIG_COD_ROTULO_MASCARA'
    end
    object cdsConsultaVOLUME_MINIMO: TFMTBCDField
      Alignment = taCenter
      FieldName = 'VOLUME_MINIMO'
      Required = True
      Precision = 15
      Size = 3
    end
    object cdsConsultaVOLUME_MAXIMO: TFMTBCDField
      Alignment = taCenter
      FieldName = 'VOLUME_MAXIMO'
      Required = True
      Precision = 15
      Size = 3
    end
    object cdsConsultaSITUACAO: TStringField
      Alignment = taCenter
      FieldName = 'SITUACAO'
      Size = 5
    end
    object cdsConsultaDATA_CAD: TDateField
      Alignment = taCenter
      FieldName = 'DATA_CAD'
    end
    object cdsConsultaDATA_ALTERACAO: TDateField
      Alignment = taCenter
      FieldName = 'DATA_ALTERACAO'
    end
    object cdsConsultaPRODUTO: TStringField
      FieldName = 'PRODUTO'
      Size = 201
    end
    object cdsConsultaFORMA: TStringField
      FieldName = 'FORMA'
      Size = 100
    end
    object cdsConsultaCLASSTERAPEUTICA: TStringField
      FieldName = 'CLASSTERAPEUTICA'
      Size = 100
    end
    object cdsConsultaSITUACAO_DESC: TStringField
      Alignment = taCenter
      FieldName = 'SITUACAO_DESC'
      Required = True
      FixedChar = True
      Size = 7
    end
  end
  inherited qryPKChave: TSQLQuery
    SQL.Strings = (
      'SELECT GEN_ID(gen_f_embalagem,1)'
      'FROM RDB$DATABASE')
  end
  inherited cdsRegistro: TClientDataSet
    object cdsRegistroCOD_EMBALAGEM: TIntegerField
      Alignment = taCenter
      FieldName = 'COD_EMBALAGEM'
      Required = True
    end
    object cdsRegistroLIG_COD_PRODUTO: TIntegerField
      Alignment = taCenter
      FieldName = 'LIG_COD_PRODUTO'
      Required = True
    end
    object cdsRegistroLIG_COD_FORMA: TIntegerField
      Alignment = taCenter
      FieldName = 'LIG_COD_FORMA'
      Required = True
    end
    object cdsRegistroLIG_COD_CLASS_TERAPEUTICA: TIntegerField
      Alignment = taCenter
      FieldName = 'LIG_COD_CLASS_TERAPEUTICA'
      Required = True
    end
    object cdsRegistroLIG_COD_ROTULO_MASCARA: TIntegerField
      Alignment = taCenter
      FieldName = 'LIG_COD_ROTULO_MASCARA'
    end
    object cdsRegistroVOLUME_MINIMO: TFMTBCDField
      Alignment = taCenter
      FieldName = 'VOLUME_MINIMO'
      Precision = 15
      Size = 3
    end
    object cdsRegistroVOLUME_MAXIMO: TFMTBCDField
      Alignment = taCenter
      FieldName = 'VOLUME_MAXIMO'
      Precision = 15
      Size = 3
    end
    object cdsRegistroSITUACAO: TStringField
      Alignment = taCenter
      FieldName = 'SITUACAO'
      Size = 5
    end
    object cdsRegistroDATA_CAD: TDateField
      Alignment = taCenter
      FieldName = 'DATA_CAD'
    end
    object cdsRegistroDATA_ALTERACAO: TDateField
      Alignment = taCenter
      FieldName = 'DATA_ALTERACAO'
    end
  end
  inherited sqlRegistro: TSQLQuery
    Params = <
      item
        DataType = ftInteger
        Name = 'codigo'
        ParamType = ptInput
      end>
    SQL.Strings = (
      'select'
      '    e.COD_EMBALAGEM,'
      '    e.LIG_COD_PRODUTO,'
      '    e.LIG_COD_FORMA,'
      '    e.LIG_COD_CLASS_TERAPEUTICA,'
      '    e.LIG_COD_ROTULO_MASCARA,'
      '    e.VOLUME_MINIMO,'
      '    e.VOLUME_MAXIMO,'
      '    e.SITUACAO,'
      '    e.DATA_CAD,'
      '    e.DATA_ALTERACAO'
      'from F_EMBALAGEM e'
      'where e.cod_embalagem = :codigo')
  end
end
